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, قواعد البيانات: لغة الاستعلامات البنيوية — أمثلة وتطبیقات (الجزى الثاني) 
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, مكونات دلفی: مكون ComboBox‏ 

, برامج لها علاقة بدلفي: Meerkat - Advanced kernel mode driver GUI‏ 
, حل تمرین العدد01 

, تمرين هذا العدد: برمجة أداة Alias Manager‏ و مکون Tables Manager‏ 
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برامج الحماية وال False positive‏ 


أصبحت مصادفة رسائل التحذير الخاطئة التي تظهرها برامج الحماية هاجس يزرع الشك في مصداقية 
البرامج, و تخلط المفاهيم على المستعمل العادي و كيف و إن كان من يظهر الرسالة هو برنامج حماية مصدر 
225 نصب على الجهاز لكي يحمي المستعمل من البرامج الضارة. 

السؤال هو كيف استطيع أن افرق بين برنامج ضار حقيقي و بين برنامج نظيف نم تصنيفه š‏ 

الإجابة معقدة. حيث أن Jadi‏ يكمن في الفحص البشري للبرنامج المشكوك فيه من طرف مخابر برامج 


so‏ جهو 


الحماية لكي يتم حذفه من قائمة البرامج الضارة في حالة تصنيف خاطئ. 


اذا يصبح برنامجي مصلف ؟: 


1۔ التشابه في السلوك مع برنامج ضار. 

2- استعمال برامج ضغط/حماية الملفات التنفيذية. 

3 تشفبر أجزاء من الأوامر لحمايتها مثل خوارزميات التسجيل. 

4 مواقع الفحص على الانترنت ساهمت أيضا في انتشار التصنيفات الخاطئة. عند فحص برنامج على 


موقع Site virustotal‏ فإن هذا الأخبر بنادا على اتفاقية أبرمت مع شركات برامج الحماية يقوم 
بإرسال نسخة من البرنامج المفحوص إليها. 


:False positive حالة‎ 


البرنامج المفحوص | مع تقرير الفعص — | مع تقریر الفحص مع تقرير الفحص | مع تقریر الفحص 
مع تقرير الفحص 

تقومالشسركة | تقومالشسركة | تقومالشركة تقومالشركة | تقسمم الشسرکة 
بإضافة البرنامج إلى | بإضافة... بإضافة ... بإضافة... بإضافة. .. 

فاعدة البيانات 

False positive False postive | False positive False positive False positive False positive 
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حالة كشف صحيح 
TE EE 0 md | 0‏ 
البرنامج المفحوص | مع تقرير الفحص | مع تقرير الفحص مع تقریر الفحص | مع تقرير الفحص 
مع تقرير الفحص 


قاعدة البيانات 


كشف حقيقي كشف حقيقي كشف حقيقي كشف حقيقي كشف حقيقي كشف حقيقي 


فحص شركة01 | فحص شركة 02 | فحص شركة 03 | فحص شركة 04 | فحص شركة 05 | فحص شركة 06 


لا يتم إرسال التقرير 


و ليس المبرمج الهاوي فقط من يكون ضحية التصنيف الخاطئ بل لاحظنا شركات حماية عريقة مثل 
Panda Labs‏ یتم تصنيف احد نحدياتها على أنه برنامج ضار راجع موضوع تحدي Panda‏ 
Challenge 20 D‏ على موقعهم الرسمي. 


الكاتب: إدارة المسندى 
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إعادة الاستخدام فی دلفي ‏ بقلم 

الجزء COLL‏ — المستودعات 
في هذا sy!‏ نستكمل سلسلة مقالات حول إعادة الاستخدام في دلفي. و الذي بدأناه بالقوالب 
Templates‏ في الجزہ الأول, و الإطارات Frames‏ في الجزہ الثاني. و في هذا الجزہ الثالث سنتحدث 
عن مستودع القوالب Repository‏ في دلفي. 
المستودع Repository‏ في دلفي هو مكان تقوم فيه دلفي بتخزين قوالب کائنات أو صنفيات Calsses‏ 
مختلفة رنماذج شاشات. مشاريع, برامج (Wizard‏ سابقة الإعداد لاستخدامها لاحقا من قبل المبرمج كأساس 
لعناصر جديدة في برامجه. في الواقع عندما نطلب من دلفي إنشاء مشروع جدید, أو إنشاء Aula‏ أو وحدة 
جديدة فإن دلفي تقوم باستدعاء قالب سابق الإعداد من المستودع ذاته. 
لنأخذ dat‏ سريعة ومختصرة لكيفية استخدام المستودع. 
يتم إستدعاء قالب من المستودع من خلال لائحة الأوامر: File] New| Other..‏ رقد تختلف سلسلة 
الأوامر من نسخة لأخرى) فتظهر شاشة New Item‏ كما في الشكل (O1‏ عارضة في صفحات مبوبة أنواع 
القوالب التي سينبئق منها العنصر الجديد الذي نود إدراجه في مشروعنا. 


5 
| New Items 


Projects | DataModules | Business | WebSnap | WebServices | 
New | ActiveX |  Mulitier | Project) | Forms | Dialogs | 
= e 
Application Batch File CLX Component Console 

Application Application 


Me Panel En. Panel Data A DLL wizard 


Application Module 


Frame Package Project Group Report Resource DLL 
izard -= 


جم 


الشكل 01 
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نختار الصفحة Forms‏ ومنها نختار القالب Dual List Box‏ كما في الشكل 02 


" 
JB New Items 


Projects | Data Modules | Business | WebSnap | WebServices | 
New | ActiveX | Mulier |  Project2 Forms | Dialogs | 


About box Dual list box 


Tabbed pages 


QuickReport QuickReport — QuickReport 
Labels List Master/Detail 


C Inherit © Use 


f Copy 


Cancel | Help | 


الشكل 02 


عندها تقوم دلفي بإضافة شاشة جديدة بنفس بنية القالب الذي اخترناه كما في الشكل 03 


* £e 


n 
8 Choices Dialog 


+ Source List: 


الشكل 03 
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2212231 الجديدة هي شاشة سابقة الإعداد تحتوي على عناصر الاستخدام من أزرار و قوائم, كما أنها تحتوي 
على التوليف Code‏ اللازم لنقل عناصر القوائم من قائمة لأخرى. 

كما لاحظنا. نستطيع أن نستدعي عنصرا سابق الإعداد (مثل الشاشة السابقة) ويكون أساسا قابلا للتعديل 
والإضافة, وتوظيفه في برامجنا بدلا من استدعاء شاشة فارغة والعمل عليها من جديد. 

كيف نقوم بتخزين قالب في المستودع 

لنأخذ مثالا عمليا لكيفية تخزين قالب شاشة form‏ في المستودع, لنفترض أننا نريد للشاشات في برامجنا 
أن تكون بصيغة خاصة وموحدة, كأن تكون فيها TPanel‏ أعلى الشاشة و TStatusbar‏ أسفلها. وأن 
تكون خاصية الاتجاه من اليمين bdRightToLeftyluskt‏ كما أن نوع الخط على مستوى الشاشة يكون نوع 
Tahoma‏ عربي وخاصية AutoScroll‏ تكون سالبة. وحتی نوفر على أنفسنا slic‏ تكرار هذه العمليات 
كل مرة. نريد حفظها كقالب یتم استخدامه كلما احتجنا J‏ هذه الساسة. 

نقوم بإعداد شاشة بالخصائص المطلوبة مثل الشكل 04. نقوم بتسمية نموذج الشاشة MyForm qub‏ 
ونحفظها بإسم fMyForm‏ في مجلد نختاره. 


الشكل 04 
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الآن نريد من دلفي أن تجعل من نموذج الشاشة هذا قالبا Template‏ يمكن استدعاؤه لاحقا من المستودع 
.Repository‏ 


من خلال النقر على الزر الأيمن للفارة في النموذج, ومن خلال لائجة الأوامر الفرعية نجد الأمر: Add‏ 
to Reository...‏ بإختیار هذا الأمر تظهر لنا شاشة الحوار الخاصة بالإضافة إلى المستودع, نقوم بملء 
البيانات فيها كما في الشكل 05 

[ Add To Repository 


Forms: Title: 
[M y Form 
Description: 
Page: Author: 


[Forms 5 jus 


Select an icon to represent this object: 


Browse... 
"EM" 


الشكل 05 


*% + 


البيانات تتضمن عنوانا نضعه لهذا القالب ووصفا له وإسم من قام بإعداد هذا القالب, ثم !سم الصفحة فى 
المستودع التي سيندرج تحتهاء بالنسبة لإسم الصفحة يمكن اختيارها من قائمة الصفحات الموجودة فعا 
بالستودع, أو نضع !سم لصفحة جديدة. أيضا هناك بيانات خاصة بملف الأيقونة icon‏ التي سترمز لهذا 
القالب في المستودع. بالامكان إختيار ملف أيقونة (100. *) أو اعتماد الأيقونة الافتراضية الظاهرة. 

الآن لو رجعنا إلى المستودع ge) Repository‏ طريق الأمر: (File] New| Other...‏ وذهبنا إلى 
صفحة Forms‏ سنجد القالب My Form‏ الذي أنشأناه مدرجا ضمن القوالب الأآخری, وجاهز للإستخدام. 
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| New Items 


Projects | Data Modules | Business | WebSnap | WebServices | 
New | Actives | Multitier | Projec1 Forms Dialogs | 


Modified 
Bl About bos Generic About bos dialog. 5722720... آ8‎ 
ad Dual list bax Dialog box with bua list bo... = 5/22/20... 


Barland 
fee bly Form ied i شالك .لات ”م الشاشة ال‎ 
5 QuickReport Labels QuickReport malling lab View Large Icons 
EJ Quick Report List Quick A epot simple list E 
Ë] Quick Report Mast... QuiekReport Master/De 
D3l Tabbed pages Generic tabbed pages c 


View Small Icons 
View List 
€ View Details 
í Inherit f’ Use 


fe Copy 
w Arrange by Name 


Arrange by Description 
Arrange by Date 
Arrange by Author 


Properties 


الشكل 06 
إذا أردنا عرض معلومات أكثر عن هذه القوالب؛ فمن خلال لانحة الأوامر الفرعية (الزر الأيمن) نختار الأمر 
View Details‏ ليتم عرض تفاصبل كل كل قالب كما في الشكل 06. 
يمكننا من الآن استخدام القالب الجديد الذي كوثاه بالضغط على زر موافق Ok‏ فتقوم دلفي بإعطائنا نموذج 
شاشة جديدة عبارة عن نسخة من القالب الأصلي. ويمكننا أن نعيد هذا الأمر أكثر من مرة. 
استخدام قوالب المستودع 
الآن لنستكشف كيفية استخدام قالب من المستودع بتمعن أكثر. 
لنقم بإنشاء مشروع جدید, ثم طلب إضافة عنصر جديد من المستودع (File| New| Other...‏ , 
نختار صفحة Forms‏ ونختار قالبنا الذي قمنا بتكوينه سابقا My Form‏ الآن لو تفحصنا شاشة 
الإضافة من المستودع سنرى ثلاث خيارت أسفل الشاشة رراجع الشكل 06( وهي Copy‏ نسخ و Inherit‏ 


توریٹ, و Use‏ استخدام. أي أن إضافة نموذج الشاشة My form‏ بإستخدام هذا القالب يمكن أن يتم 
بخيارات ثلان: 
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1 النسخ COPY‏ و يعني أن دلفي ستقوم بإعطائنا نموذجا جديدا يضاف لبرنامجنا هو عبارة عن نسخة 
طبق الأصل من النموذج القالب. وبالتالي فان صنفية Class‏ (نوع) النموذج الجديد ستكون منبثقة 
من نفس الصنفية التي انبئق منها القالب. 

2 توريث Inherit‏ ويعني أن النموذج الجديد سيكون منبثقا من صنفية class‏ القالب. 

3 استخدام USE‏ ويعني أن برنامجنا سیستخدم ملف القالب مباشرة. 


القالب الأصلي SIS‏ نموذج شاشة آخر هو صنفية class‏ منبثفة من الصنفية TForm‏ وتعريفها كالتالي: 


type 


TMyForm = class (TForm) 


)1( لو انشأنا نموذج شاشة جديدة باستخدام القالب مع خيار النسخ CODY‏ فسيكون التعريف 
(تضعه دلفي آليا) كالتالي: 
type‏ 
TMyForml = class (TForm)‏ 
أي أنها نسخة طبق أصل القالب, وفيها نفس كل التعريفات و الأكواد التي بالقالب الأصلي. وبما أنها نسخة 
من القالب, فستكون مستقلة عن القالب و لا تتبعه. و بالتالي أي تغيير في القالب الأصلي سوف لن يؤثر على 
هذه النسخة, كما أنه يمكننا تعديل وإلغاء ما سنا من عناصر وأكواد في هذه النسخة. 


(2) الخيار الثاني هو التوريث, فإذا أضفنا نموذج شاشة جديد باستخدام القالب مع خيار 
Inherit‏ فإن النموذج الجديد سيكون مولدا من القالب الأصلي وتعريفه كالتالي: 
type‏ 


TMyForml = class (TMyForm) 


www.delphi4arab.com 


D4A Magazine لهي للعرب‎ a € dls 


العدد رقم : 03 لشهر أغسطس 2010 0 Issue 03 - August‏ 


لذلك سنلاحظ أن النموذج الجديد خاليا من أية تعریفات للعناصر الموجودة, كما أنه خاليا من أية أكواد. 
لأن عناصر وأكواد نموذج الشاشة هذا معرفة في القالب الأصلي الذي انبثق منه وورث منه کل خصاصه. 
والذي قامت دلفي بإضافة إشارة لملفه في قسم USES‏ 


Windows, Messages, SysUtils, Variants, 
Dialogs, FMYFORM, ComCtrls, ExtCtrls; 


type 
TMyFormi = class (TMyForm) 
private 


الشكل 07 
وبهذا لا يمكننا إلغاء عنصر موجود فيها (يمكننا تغيير خصائصه), كما أن أي تغيير قد يطرأ لاحقا على 
القالب الأصلي سوف ينعكس تأثيره على جميع النماذج المنبئقة منه. وينطبق عليه نفس ما تم شرحه عند 
الحديث عن الإطارات Frames‏ 


(2 الچزہ الثاني من هذه ا مقالة والخاص باستخدام الإطارات» مجلة دلفي للعرب العدد‎ arly) 


رق الخيار الثالث هو الاستخدام Use‏ ويعني أننا سنستخدم ملف القالب مباشرة. وبالتالي فان أي تغيير 


يتم على هذا القالب سوف ينعكس على كل نماذج الشاشات التي استخدمت هذا القالب بالوراثة, سواء في 
مشروعنا الحالي أو في مشاريع أخرى. لذلك يجب الحذر عند اعتماد هذا الخيار. 


ملخص الخطوات السابقة: 

, وفق الخصائص التي نرغبها (انجاه. خط, عناصر مضافة). وقمنا بحفظها‎ form بإعداد نموذج شاشة‎ Lied 
وعندما نريد إضافة‎ Add to Repository و إضافتها كقالب إلى المستودع عن طريق الأمر الفرعي‎ 
ونختار القالب من‎ File| New| Other شاشة جديدة في أي مشروع باستخدام هذا القالب؛ نطلب الأمر‎ 
المستودع. مع خيار أن يكون النموذج الجديد نسخة مستقلة من القالب أو صنفية موروثة منه.‎ 
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الآن سنستكشف أبعادا جديدة فی المستودع Repository‏ 


ماذا لو أردنا أن نجعل من دلفي يقوم تلقائیا باستدعاء الشاشة السابقة عند طلب شاشة جديدة. دون أن 
نضطر إلى الذهاب إلى المستودع واختيارها من هناك؟ بما أننا قد قمنا بإعداد القالب السابق ليكون كأساس 
لمعظم شاشات مشاریعنا, فإنه من الجميل أن يكون القالب السابق هي الشاشة الافتراضية عند طلب نموذج 
شاشة جديد. 

الأمر سهل. من خلال قائمة الأوامر الرئيسية في دلفي نختار الأمر Tools| Repository...‏ فتظهر Lit‏ 
شاشة إدارة قوالب GUIS‏ المستودع Object Repository‏ والتي تتيح لنا إدارة محتویات المستودع, كما 
في الشكل 08. 


r 

Object Repository 

| 

| Pages: Objects: 
TEJ About box 

ialogs - 
Projects Add Page... Ci Tabbed pages 
Data Modules لد سه‎ ad Dual list box 
oce Delete Page = QuickReport List | 
WebServices — سے‎ 8 QuickFleport Master/Detail 
[Object Repository] Rename Page... E] QuickReport Labels 
Edit Object... 


Delete Object 


t| E ¥ NewForm ] Main Form 
Cancel Help 

| 
الشكل 08 


بعد اختيارنا للقالب My Form‏ كما هو ظاهر في الشكل أعلاه. سنجد أسفل شاشة إدارة المستودع 
خيار New Form‏ أي شاشة جديدة, و هذا يعني أننا إذا فعلنا هذا الخيار فإن هذا القالب سيكون أساس 
أية شاشة جديدة في دلفي. يمكننا تفعيل هذا الخيار واعتماده. و سنلاحظ أنه كلما أردنا إضافة form‏ 
جديدة سنکون بنفس الخصائص التي حددنا بالقالب. 

إذا أردنا إختيار قالب آخر ليكون شاشة النموذج الافتراضية. يمكن العودة إلى شاشة إدارة المستودع واختیار 
قالب لشاشة أخرى. سنلاحظ أن شاشة إدارة المستودع لا تسمح إلا بإختيار قالب واحد ليكون القالب 
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الإفتراضي لأية شاشة جديدة, و سيقوم تلقائيا بإزالة الاختيار عن القالب الأول. (لاحظ تغيرشكل أيقونة 
القالب عند تفعيل أو إزالة تفعيل الخیاں. 

بجانب خيار New Form‏ في شاشة إدارة المستودع يوجد خيار Main Form‏ أي نموذج الساسة 
الرئيسية ‏ راجع الشكل 08 — 131 تم تفعيل هذا الخیاں فإن دلفي ستقدم هذه الشاشة كشاشة رئيسية كلما 
تنبيه: يجب "n‏ الحذر عند التعامل مع هذه الخيارات لأنها المسؤولة عن نماذج الشاشات الافتراضية في 
دلفي. 

تحديد قوالب المشاريع: 

كما توجد قوالب لکائنات منفردة مثل نماذج الشاشات forms‏ توجد أيضا قوالب لمشروعات مكتملة. 

عندما نطلب من دلفي إنشاء تطبيق جديد S, File] New| Applicatin‏ في دلفي 6) فان دلفي 
تقدم لنا مشروعا جديدا مكونا من شاشة form‏ جديدة وحيدة. يمكننا عن طريق المستودع أن نحدد أن 
المشروع الجديد يكون بقالب مشروع سابق الإعداد. 

لو تأملنا شاشة اختیار القوالب من المستودع سنجد ضمن الصفحات صفحة Project eub‏ مشاریع, وبها 
مجموعة من قوالب المشاريع التي يمكن إختيار إحداها لتكون أساسا لتطبيق جديد. أنظر الشكل 09. 

يمكننا اختیار إحداهاء وستقوم دلفي بنسخ محتويات كافة ملفات هذا المشروع في المجلد الذي نعددہ, ليكون 
أساسا لتطبيق جديد. لاحظ أن خيار النسخ هو الوحيد المتوفر عند استخدام قوالب المشاريع. 


É 
]@ New Items 


New | ActiveX | Multitier | Project! | Forms | Dialogs | 
Projects | Data Modules | Business | WebSnap | WebServices | 


Application SDI von =e نے‎ 
Wizard Mese Application Application Logo Ap... 


الشكل 09 
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إضافة مشروع كقالب للمستودع: 

نحن يمكننا أيضا تعدید مشروع كقالب و نخزينه في الستودع. 

يمكن أن نبدأ مشروعا جديدا تكون شاشته الرئيسية نفس الشاشة التي حددناها سابقاء و نضيف إليها إذا 
أردنا شاشات أخرى مثل شاشة About‏ عن البرنامج , و رسالة تنبيه Message Box‏ تظهر عند غلق 
الشاشة الرئيسية للتأكيد على GLE‏ البرنامج. وبعد حفظ المشروع و ملفاته. نطلب من دلفي تخزينه كقالب 
في المستودع و ذلك عن طريق الأمر Project| Add to Repository‏ فیقوم دلفي بعرض شاشة نضع 
فيها بيانات هذا القالب. و سیکون جاهزا لإعادة الاستخدام لاحقا. 


ملاحظات عامة عن المستودع: 

© في المستوع يمكن رؤية صفحة بنفس عنوان مشروعنا الحالي بها قائمة بجميع 
تماذج الساسات الستخمة في المسروع. و هي (SUD‏ تنيح لنا إضافة ساسة 
جديدة لمشروعنا تكون منبثقة و مورثة من إحدى هذه الشاشات. 

© العناصر التي ضمن صفحة New‏ تكون دائما بالنسخ و لاتتوفر فيها خاصية 
التوريث. كذلك القوالب الخاصة بالمشاريع. 

e‏ القوالب التي تأتي جاهزة مع دلفي مخزنة في المجلد Objrepos‏ في مسار 
مكان Cue‏ دلفي. 

: دلفي في‎ Cue الملف الذي فيه التعريفات الخاصة بالمستودع موجود في مسار‎ e 
Bin\delphi32.dro 

© يمكن لفريق عمل أن يتشارك في مستودع موحد عبر الشبكة. و يتم تحديد 
المجلد الذي سيكون فيه المستودع و ملف تعريفاته من خلال لانحة الأوامر: 

Tools| Environment 5‏ ثم صفحة Preferences‏ في 

Shared repository قسم‎ 
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فواعد البیانان — 


لغة الاستعلامات البنيوية - أمثلة وتطبيقات رالجزہ الثاني) 


Structured Query Language - Examples and Training (Part 2) 


تحدثنا في الموضوع السابق عن مميزات لغة SQL‏ وذكرنا أنها لغة تصريحية BSF (Declarative)‏ للغات 
البرمجة الأخرى النمطية (Procedural)‏ مما يجعلها Agu‏ الفهم والاستعمال ولا تتطلب أية معارف برمجية 
مسبقة بلغة أخرى. 

وسنعرض في هذا الموضوع إلى أهم أوامر 231 SQL‏ مع ذكر بعض أهم الاختلافات بين أشهر المعايير المستخدمة 
فى SQL aa‏ 


القواعد النحوية فى SQL‏ 
رأينا سابقا بعض القواعد النحوية لجمل SQL‏ ويمكن تلخيصها فيما يلي: 
- لا فرق بين الأحرف الكبيرة (Upper Casey‏ والأحرف الصغيرة (Lower Case)‏ 
- الفراغات المسافات) لا يعتد بهاء ولا فرق بين مسافتين رأو أكثر) ومسافة واحدة, ونفس الأمر فيما 
يخص رمز السطر )813( ` 
- تنتهي كل جملة في SOL‏ برمز القاطعة (:). ووجود القاطعة في وسط الجملة يعني نهايتها. 


تعليمات معالجة البيانات :Data Manipulation Language (DML)‏ 
© الصيغة العامة الشهيرة للاستعلام عن بيانات جدول: 
SELECT ColumsName FROM TableName;‏ 

SELECT‏ كلمة محجورة في SQL‏ وتعني اخال اق حدد... 
+4 : اسم الحقل رأو الحقول) التي تود تحديدها. 
۴۴1۷ : كلمة محجوزة في SQL‏ وتستخدم لتحديد الجدول gh‏ الجداول) التي تحتوي على الحقل 
(الحقول) المحددة. 
:TableName‏ اسم الجدول (أو الجداول أو تركيبة من الجداول) الني نجوي الحقول. 

٭ لتحديد عدة حقول يجب الفصل بينها بفاصلة, مثال: 


SELECT FirstName, LastName FROM Employee; 
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© لتحديد كافة الحقول نستخدم الرمز * في محل أسماء الحقول, مثال: 


SELECT * FROM Employee; 


© لعرض أحد الحقول باسم مستعار نستخدم كلمة AS‏ متبوعة بالاسم الستعاں مثال: 


SELECT FirstName AS EmployeeName, LastName FROM Employee; 


وهنا اختلاف صغير بين 7 Paradox‏ (المعيار cu (SQL-92‏ یمکن حذف عن AS‏ مثال: 


SELECT FirstName EmployeeName, LastName FROM Employee; 


وهو ما لا يمكن في (المعيار (SQL-89‏ ويعد خطأ نحويا. بينما يمكن هنا استخدام اسم مستعار 
يحتوي فراغات ونحوها مع إدراجه بين شالتين أو مزدوجتين أو معقوفتین, مثال: 


SELECT FirstName AS 'Employee Name', LastName FROM Employee; 

أو 
SELECT FirstName AS "Employee Name", LastName FROM Employee;‏ 

أو 
SELECT FirstName AS [Employee Name], LastName FROM Employee;‏ 


وهذا ما لم يمكن ممكنا في 7 Paradox‏ رالمعیار .(SQL-92‏ 
في (SQL-99 jati SOL Server‏ العبارات السابقة جميعها صحيحة J‏ 


© يمكن انتخاذ اسم مستعار للجدول. وبالتالي يمكن كتابة الجملة السابقة بكل هذه الصيغ: 
SELECT Employee.FirstName, Employee.LastName FROM Employee;‏ 
SELECT Emp.FirstName, Emp.LastName FROM Employee AS Emp;‏ 
SELECT Emp.FirstName, Emp.LastName FROM Employee Emp;‏ 


من الضروري تحديد اسم الجدول إذا وجدت عدة جداول تحمل أسماء حقول متشابهة. 
© لاستخراج البيانات دون تكرار نضيف كلمة DISTINCT‏ مثال: 


SELECT DISTINCT FirstName FROM Employee; 


© لترتيب البيانات تصاعديا نستخدم الأمر :ORDER BY‏ 


SELECT FirstName, LastName FROM Employee ORDER BY FirstName; 
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هذا cud yd‏ البيانات تصاعديا ASC‏ ولترنيب السجلات تنازليا نصيف DESC‏ هكذا : 


SELECT FirstName, LastName FROM Employee ORDER BY FirstName DESC; 


يمكن عرض البیانات في مستويات من الترتيب, مثال: 
SELECT EmpID, FirstName FROM Employee ORDER BY EmpID, FirstName;‏ 


+ 


حيث يجب إدراج حقل الترتيب EmpID)‏ في المثال) ضمن قائمة الحقول المحددة. 


SELECT EmpID, FirstName FROM Employee WHERE EmpID = 10; 


ويمكن هنا استخدام أي من العلامات = أو > أو > أو =< أو => أو <> . 


لتحقيق مجموعة من شرط رأو شروط أو/و تحقيق انتفاء أحدها (أو بعضها), يمكن استخدام المعاملات 
المنطقية AND‏ و OR‏ و NOT‏ مثال: 


SELECT EmpID, FirstName, Age, Married FROM Employee WHERE EmpID > 100 AND Age > 
60 AND NOT Married; 


الحقل Married‏ یحمل قيمة منطقية True)‏ أو (False‏ الجملة السابقة صحيحة لدى البعض (Access)‏ 
وخاطنئة لدی آخرین, Cu‏ يجب تحديد قيمة الحقل: „Married = False‏ 


يستحسن استخدام الأفواس عند وجود عدة سروط لرفع اللبس عن المترجم. Ss‏ هذه: 
SELECT EmpID, Age, FirstName FROM Employee WHERE (EmpID < 100) AND NOT (Married‏ 
True OR Age < 60);‏ = 


calo‏ نماما عن شدہ: 
SELECT EmpID, Age, FirstName FROM Employee WHERE (EmpID < 100) AND NOT (Married‏ 
True) OR (Age < 60);‏ = 


وهذه الأخيرة هي التي ينفذها مترجم SQL‏ عند عدم استخدام الأقواس. 


© كما يمكن استخدام المعامل LIKE‏ مثل الآتي: 


SELECT * FROM Employee WHERE FirstName LIKE 'Omar'; 


وطبعا قيم الحقول النصية يجب أن تكتب بين شالتين " أو مزدوجتين "". 
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يمكن استخدام المعامل LIKE‏ مع الرمز % للاستعلام عن كلمة مشابهة. مثال: 


FROM Employee WHERE FirstName LIKE 'A%';*SELECT 


يعني هذا المثال عرض جميع الأسماء التي تبدأ بالحرف ۸. مثال آخر: 
FROM Employee WHERE FirstName LIKE '%0U%';*SELECT‏ 


هذا المثال Sasa‏ عن الأسماء التي تحتوي على حرفي OU‏ في وسط الكلمة. للبحث في آخر الكلمة نجعل 
الرمز % في أول كلمة البحث: '۶۸'. 


يعني الرمز / عددا من الحروف, لتحديد عدد من الحروف نستخدم الرمز _, مثال: 
FROM Employee WHERE FirstName LIKE '_OU%'; {SELECT‏ 
تستعلم هذه الجملة عن الأسماء التي تبدأ بحرف ثم 017 ثم مجموعة من الأحرف. 
يمكن البحث عن مجال من الأحرف, مثالا للبحث عن الأسماء التي تبدأ بحرف من أحرف ا جال [A-L]‏ 
FROM Employee WHERE FirstName LIKE ' [A-L]%';*SELECT‏ 


هذه الأخيرة غبر موجودة Paradox 7 ë‏ (العيار .(SQL-92‏ 


كما يمكننا البحث عن أحد الأسماء التي لا تبدأ بحرف (أو مجال من الأحرف) معين: 
FROM Employee WHERE FirstName LIKE '[^B]$';*SELECT‏ 


هذه الأخيرة غير ممكنة في 7 Paradox‏ و Access‏ وممكنة في SQL Server‏ رالعیار .(SQL-99‏ 


* يمكن kasi‏ استخدام المعامل BETWEEN‏ رمع إضافة (AND‏ لتحديد مجال الشرط كالآتي: 
SELECT EmpID, FirstName FROM Employee WHERE Age BETWEEN 30 AND 60;‏ 
وليس من الضروري عند استخدام LIKE‏ أو BETWEEN‏ إدراج حقل السرط في ضمن الحقول المحددة, 
لاحظ في الجملة السابقة أن الحقل Age‏ غير محددة ضمن .SELECT‏ 


© يمكن استخدام المعامل IN‏ مع تحديد مجموعة من القیم, مثال: 


SELECT EmpID, FirstName FROM Employee WHERE Age IN (25, 26); 


e‏ تكتب التواريخ بين علامتين Access  #‏ أو شالتين " فی 7 SQL Serverg Paradox‏ ويمكن 
استخدام مزدوجتين لله لله فى 7 Paradox‏ أيضاء أمثلة: 
FROM Employee WHERE BirthDate > #01/01/1980#; *SELECT‏ 


FROM Employee WHERE BirthDate > '01/01/1980';*SELECT 
FROM Employee WHERE BirthDate > "01/01/1980"; 77ء‎ 
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ويمكن هنا أيضا استخدام أي من المعاملات المنطقية = أو > أو > أو =< أو => أو <> . كما يمكن استخدام 
العبارات الشرطية السابقة. 


دوال (SQL Aggregate Functions) SQL ë Shard‏ : 
توفر SOL‏ مجموعة من الدوال المصمنة في المترجم ولا نحتاج جهدا برمجيا لاستخدامها. فقط يكفي 
استدعاؤها لتعید قيمة وحيدة رولیس جدولا). 


© لعرفة عدد السجلات من أي جدول نستخدم الدالة COUNT‏ مثال: 


SELECT COUNT(*) FROM Employee; 


لاحظ أنه لا ضرورة لتحديد حقل معين. يمكن أن نعطي المجموع اسما مستعاراء مثال: 
SELECT COUNT(*) AS SumOfEmplyee FROM Employee;‏ 
© تحسب الدالة AVG‏ متوسط قيم حقل Ua (la‏ لحساب متوسط أعمال العمال: 
SELECT AVG(Age) FROM Employee;‏ 
© نجسب الدوال MIN‏ و MAX‏ و SUM‏ (على التوالي) أصغر وأكبر ومجموع قيم حقل محدد, مثال: 
SELECT SUM(EmpID), MIN(EmpID), MAX(EmpID) FROM Employee;‏ 
© تستخدم عبارة GROUP BY‏ غالبا مع دوال الإحصاء لتجميع سجلات الجدول وفق فيم حقل معين, 
مثال åå pal‏ متوسط أعمار الطلبة حسب رقم القسم :ClassNo‏ 
SELECT 0135516, AVG (Age) FROM Student GROUP BY ClassNo;‏ 
e‏ إلى جانب ذلك هناك دوال مساعدة أخرى متوفر في SQL Serverg Access‏ نذكر كمثال TOP‏ 
لتحديد عدد معين من أعلى الجدول من الحقول: 
SELECT TOE 10 + EROM Student‏ 
بنفس الطريقة لتحديد 50/ من السجلات: 
SELECT TOP 50 PERCENT * FROM Student‏ 
٭ للاستعلام عن بيانات جدولين Cur‏ تتساوی قيم حقولها يمكن استخدام عبارة كالآتي: 
SELECT Customer.*, Orders.* FROM Customer, Orders‏ 
WHERE Orders.CustNo = Customer.CustNo‏ 


© لإضافة سجلات إلى الجداول نستخدم كلمة INSERT INTO‏ کالائی: 
INTO E Age) VALUES ('Amine', 10);‏ 1 
يمكن إضافة سجلات دون تحديد أسماء الحقول لکن مع مراعاة ترتيبها جمیعا, مثال: 
INSERT INTO Student VALUES ('Amine', 10);‏ 
© لتعديل (تحديث البيانات نستخدم عبارة UPDATE SET‏ كالآتي: 


UPDATE Student SET Age = 12 WHERE Name = 'Amine'; 
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ينبغي هنا إدراج عبارة شرط WHERE‏ لتمييز السجل الذي ترغب في تعدیله, وإلا فسيتم تغيبر كافة 
السجلات في الجدول! 
© لحذف سجل نستخدم كلمة DELETE‏ مع عبارة شرط WHERE‏ بنفس الطريقة: 
DELETE FROM Student WHERE Name = 'Amine';‏ 
لحذف كافة سجلات الجدول :Student‏ 
DELETE FROM Student;‏ 
© ربط الجداول يعني عرض بيانات جدولين gh‏ أكش وفق شرط معین, ويتم باستخدام أحد عبارات 
الربط JOIN‏ الآنية: 
V‏ الربط الداخلي INNER JOIN‏ أو JOIN‏ مباشرة. مثال: 
SELECT * FROM Customer INNER JOIN Orders ON Customer.CustNo = Orders.CustNo‏ 
يتم إجراء هذا الربط لعرض جميع السجلات الموجودة في الجدولين معا. 
las di V‏ الخارجي من اليسار LEFT OUTER JOIN gly LEFT JOIN‏ في «SQL Server‏ 
SELECT * FROM Customer LEFT JOIN Orders ON Customer.CustNo = Orders.CustNo‏ 
يتم إجراء هذا النوع من الربط لعرض جميع السجلات من كلا الجدولين وحتى التي ليس لها مقابل من 
الجدول اليسار. 
V‏ اثربط الخارجي من اليمين RIGHT OUTER JOIN gl) RIGHT JOIN‏ سپ SQL‏ 
«(Server‏ مثال: 
SELECT * FROM Customer RIGHT JOIN Orders ON Customer.CustNo = Orders.CustNo‏ 
يتم إجراء هذا النوع من الربط لعرض جميع السجلات من كلا الجدولين وحتى التي ليس لها مقابل من 
الجدول اليمين. 
V‏ الربط الشامل FULL JOIN‏ وأو FULL OUTER JOIN‏ في «SQL Server‏ مثال: 
SELECT * FROM Customer FULL JOIN Orders ON Customer.CustNo = Orders.CustNo‏ 
يعرض هذا النوع من الربط جميع السجلات من الجدولين ہما فيها التي ليس لها مقابل من كلا الجدولين. 
في SQL Server‏ هناك أيضا الربط المتقاطع CROSS JOIN‏ ويكتب مباشرة بهذا الشكل “: 
SELECT * FROM Customer CROSS JOIN Orders‏ 
© عملية الاتحاد “UNION‏ تسمح هذه العملية بصم جميع سجلات الجدولين: 
SELECT * FROM Student‏ 


UNION 
SELECT * FROM Person 


لتثم عملية الاتعاد UNION)‏ أو (UNION ALL‏ يجب أن تحتوي الجداول نفس العدد من الحقول, وأن 
تكون الحقول من نفس نوع البيانات كما يجب أن تسرد الحقول وفق نفس الترتيب. 


: للمزيد حول SQL Server‏ انظر موضوع دورة تطبيقية لتصميم برنامج قواعد البيانات SOL Server‏ في منتدى دلفي للعرب. 
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٭ عبارة HAVING‏ تستخدم غالبا مع دوال الإحصاء ضمن عبارة الشرط GY WHERE‏ هذا الأخبر لا 
يمكن استخدامه مع دوال «shar I‏ وغالبا ما تسبقها عبارة التجميع GROUP BY‏ مثال ”: 
SELECT StudID ,Avg(Age) FROM Student‏ 


GROUP 9 70 
HAVING SUM(Age) < 20 


تعليمات تعريف البيانات :Data Defi tin Language ( DDL)‏ 
DDL‏ تخص تعليمات التعامل مع هياكل قواعد البیانات, ومنها “: 
s| °‏ قاعدة بيانات SQL Server ë‏ كالآني: 
CREATE DATABASE School;‏ 
e‏ لحذف قاعدة بيانات في SQL Server‏ نكتب: 
DROP DATABASE School;‏ 
e‏ إنشاء الجداول, مثال: 
CREATE TABLE Student (Name CHAR(80), Age INT)‏ 
CHAR‏ و INT‏ هي أسماء أنواع المتغيرات وقد تختلف من RDBMS‏ إلى آخر. 
القيمة 80 تمثل طول الحقل Name‏ 


e * +a 


بتنفيذ هذه الجملة تم إنشاد جدول Student‏ يحمل حقلین Name‏ نصي Ages‏ رقمي. 
نضيف عبارة NOT NULL‏ بعد اسم الحقل لجعله لا يقبل قيمة خالیة مثال: 

CREATE TABLE Student (StudID INT NOT NULL, Name CHAR(80), Age INT) 
Paradox 7 هذه الأخيرة غير متوفرة فى‎ 


bod 


مثال لإنشاء حقل تعريفي للحقل ويأخذ فيم تصاعديا تلقائیاء في 7 ‘Paradox‏ 


CREATE TABLE Student (StudID AUTOINC, Name CHAR(80), Age INT); 
:Access في‎ 

CREATE TABLE Student (StudID AUTOINCREMENT, Name CHAR(80), Age INT); 
:SQL Server فى‎ 
CREATE TABLE Student (StudID INT IDENTITY, Name CHAR(80), Age INT); 1 


فيما يخص Access‏ و:ء501.5617هناك خيارات أخرى يمكن إضافتها (Options)‏ إلى أي حقل, نذكر منها: 
UNIQUE -‏ لجعل الحقل فريد (قيمه لا تتکرں, مثال: 


CREATE TABLE Student (StudID UNIQUE, Name CHAR(80), Age INT); 
لجعل الحقل مفتاح أساسی, مثال:‎ :PRIMARY KEY - 


CREATE TABLE Student (StudID PRIMARY KEY, Name CHAR(80), Age INT); 


Jagt FOREIGN KEY -‏ الحقل مفتاح غریب من جدول آخر مثال: 


° هذا المثال لا يفيد في شيى, لكنه صحيح ويوضح الفكرة. 
“ هناك اختلافات š ka‏ بين بعض معایبر SQL‏ سأحاول استخدام الصيغة الأكثر توافقا لكل المعايير مع الإشارة أحيانا إليها. 
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CREATE TABLE Student (StudID INT PRIMARY KEY, Name CHAR(80), Age INT, PersonID 
INT, CONSTRAINT FK PersonID FOREIGN KEY (PersonID) REFERENCES 
Person (PersonID)); 


ALTER TABLE Student 
DROP CONSTRAINT FK PersonID 


:CHECK -‏ لإضافة قيد لفحص البيانات. معلا الجملة الآنية تقوم بإنساد جدول Student‏ للطلبة مع 

منع إضافة طالب يفوق عمره 20 سلة: 
CREATE TABLE Student (StudID INT PRIMARY KEY, Name CHAR(80), Age INT, CONSTRAINT‏ 
CHK_Age CHECK (Age < 20));‏ 


+ 9 چھ 


لإضافة فيد فحص البيانات بعد إنساد الجدول: 
Li * we - 3‏ * 
ALTER TABLE Student ADD CONSTRAINT CHK Person CHECK (Age > 30)‏ 
ولحذفه: 
ALTER TABLE Student DROP CONSTRAINT CHK_Person‏ 


w e +‏ هذ 


:DEFAULT -‏ لإضافة قيمة افتراضية حالة عدم إدخال البيانات Access)‏ فقط. مثال: 


Lad 


CREATE TABLE Student (StudID INT, Name CHAR(80), Age INT DEFAULT 12); 


:SQL Server (A 
ALTER TABLE Student 
ADD CONSTRAINT DV Age DEFAULT (12) FOR Age 
: Access ولحذقها فی‎ 
ALTER TABLE Student 
ALTER COLUMN Age DROP DEFAULT 
:SQL Server (Ag 


ALTER TABLE Student 
DROP DV_Age 


© حذف الجداول, مثال لحذف الجدول السابق: 
DROP TABLE Student;‏ 
ينبغي تحديث الجداول إذا كان مرتبطا مع جداول أخرى كما يلي: 


DROP TABLE Student CASCADE; 
‘Student إلى الجدول‎ Address إضافة حقول إلى الجدول, مثال إضافة الحقل‎ © 
ALTER TABLE Student ADD COLUMN Address CHAR(255); 
تکتب هذه الجملة مباسرة كالآني:‎ as SQL Server في‎ 


ALTER TABLE Student ADD Address CHAR(255); 


e‏ لحذف أحد الحقول نكتب: 


ALTER TABLE Student DROP COLUMN Address; 
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٭ لإنشاء فهرس (Index)‏ نكتب: 
CREATE INDEX StudIDX ON Student (StudID);‏ 
يمكن طبعا إضافة عدة حقول إلى الفهرس بهذا الشكل: 
CREATE INDEX StudIDX ON Student (StudID, Age);‏ 
e‏ ونكتب لحذف الفهرس: 
DROP INDEX Student .StudIDx‏ 
فى Access‏ و SQL Server‏ ذکتب: 
DROP INDEX StudIDX ON Student 1‏ 
© تعليمة SELECT INTO‏ تقوم بإضافة مجموعة من السجلات المحددة من جدول إلى جدول el‏ 
تستخدم هذه التعليمة غالبا لحفظ نسخة احتياطية (Backup)‏ مثال: 
SELECT * INTO Student_Backup FROM Student‏ 
أو لحفظ نسخة احتياطية في ملف خارجي (Ladd Access)‏ ينبغي إنشاؤه مسبقا: 


SELECT * INTO Student Backup IN 'Backup.mdb' FROM Student 
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ملاحظة: . . 
- تعليمة SELECT INTO‏ غير منوفرة في Paradox‏ 
- يمكن إضافة شروط (WHERE)‏ أو استخدام استعلام ربط (JOIN)‏ 
© القيمة المعدومة NULL‏ نقول عن السجلات التي يقم الستخدم بإدخال بيانات إليها بأنها NULL‏ 
ولا يعني ذلك أنها نحمل القيمة 0 (إذا كانت عددية) ولا القيمة " (إذا كانت نصية), وإنما تعامل 
معاملة خاصة من قبل محلل SQL‏ 
لفحص قيمة حقل من الحقول اذا كانت al NULL‏ لا يمكن أن نكتب: 


SELECT > Erom Student WHERE Age TS NOT NULL 


باختصار هذه مجمل تعليمات جمل SQL‏ الأكثر استعمالا وتوافقا مع معظم معايبر SQL‏ 


ما تم سرده من الأمثلة متوافق مع SQL Server ¿Access (Paradox‏ مع بعض الاختلافات المذكورة. وليس 
بالضرورة أن يتوافق مع المعايبر الموافقة لها .(SQL-99 «SQL-89 «SQL-92)‏ 
مجمل نظم قواعد البيانات الشهيرة لا يخرج عن تطبيق أحد هذه المعايير مع تعديلات صغبرة, فمثلا المعيار 
المستخدم في MySQL‏ لا يكاد یختلف عن المعیار Firebirdg SQL-92‏ يدعم معیار SQL-92‏ بشكل كامل 
ومعظم صيغ 501-99. 
والله أعلم. 
المراجع: 

http://www.w3schools.com 


http://www.e-naxos.com 
http://www.thedbcommunity.com 
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(Objects, SIKI استخدام‎ 


من الملاحظ من قبل الجميع قلة استخدام ال Objects‏ في كتابة الدوال و الإجرادات, Ie;‏ عن ظهورها 
منذ فترة طويلة, حيث يعتبر TObject‏ الوحدة الأساسية المسؤولة عن جميع الكائنات و مكوناتها, في 
البداية LS‏ الكائنات في الذاكرة ثم تستخدم ثم نحرر بعد الانتهاء من استخدامها. 


يكتب الكائن ضمن التعليمة type‏ و من ثم يعرف في قسم المتغيرات. 
جميع الكائنات لها تعليمة إنشاء Create‏ و إجراء تحرير Wi Free‏ البقية فلا تستخدم بقدر 


bed * 


استخدامهما. 
مثال على تعريف كائن (تضاف هذه الأسطر للمشروع تحت قسم interface:‏ 


interface 
uses Windows; 


type 
TMyObject = class (TObject) 
public 
CC كال سن‎ Lie spe 
// function, procedure, property, 


end; 
: والاستدعاء‎ 
var 
MyObject: TMyObject; 
Begin 
MyObject := TMyObject.Create; 
Try 
// من الكائن‎ FLY) باقي‎ gh او اجراثات‎ Jiga استخدام‎ gi يكنناه‎ 
finally 
MyObject.Free; 
end; 
end; 
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سؤال: اذا وضعنا دوال الکائن بين ال Try‏ و š Finally‏ 
جواب: لتأكد بأن الكائن سوف يحرر من الذاكرة حتى وان صادفت العملية أخطاء. 


سؤال: ما الفائدة من استعمال الكائنات ؟ 


PU 
ترتيب المشروع و سهولة فهمه ر ففي البرامج الضخمة تستعمل بكثرة نضرا لترتيبها وسهولة تتبع‎ .1 
.) الدالة أو الأجراء‎ 


2. تستخدم في إنشاد المكونات. 
3. تستخدم في اختصار الکود, وذلك عن طريق ال Cu Property‏ أن أغلب دوال ال VCL‏ مكتوبة 
بهذه الطريقة ). 


استخدام Property‏ في كنابة إجراء للقارئة و الکتابة : 
ال Property‏ خاصية تنيح لنا إنشاء دالة للقرادة أو إجراء للكتبة أو دالة و إجراء للقرادة و الكتابة. 
ربما قد لا يعلم المبتدئ ما هي القراءة أو الكتابة ر هذا توضيح بسيط ): 
Site‏ لدينا مكون Edit‏ نريد أن نقرأ منه خاصية معينة, Site‏ ال Spit Enabled‏ هل هو مفعل أو لا : 
If Editl.Enabled then // .....‏ 

قرائة الخاصية property‏ 

أما الكتاية: 
Editl.Enabled :- Not Editl.Enabled;‏ 
Edici.Enabled :« True;‏ 

443 الخاصية property‏ 
23s‏ الخاصية Property‏ 
إذا نريد كتابة خاصية سوف نستخدمها في مشروع ال AP‏ تقوم بالقراءة و الكتابة في خاصية ال 
Checked‏ ند CheckBox‏ 
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بعد إضافة المكون إلى المشروع بواسطة محرر الريسورس, نفرض أن ال ID‏ المعرف ( الخاص بها هو 1001. 
نبدأ slab‏ وحدة جديدة File >New >Unit) Unit‏ ( تحت اسم5 06006.03 نبدا بالكتابة بها 


unit uCode; 
interface 
uses Windows; 
type 
TMyCheckBox = class (TObject) 
public 
Property Checked: Boolean read GetCheck write SetChecked; 
end; 


implementation 


end. 


عينا TMyCheck Box‏ ككائن TObject‏ ... 
كتبنا الخاصية الخاصة بنا Checked‏ ثم نضغط على CTRL + SHIFT +C‏ ليقوم ال IDE‏ 
الخاص بدلفي بإنشاء دالة للقرادة و إجراء للكتابة نحت قسم implementation‏ 


implementation 
£ TMyCheckBox ) 


function TMyCheckBox.GetCheck: Boolean; 
begin 


end; 


procedure TMyCheckBox.SetChecked(const Value: Boolean); 
begin 


end; 


طبعا كتابة الكود الصحیح مرهون بمعرفتك بدوال ال ...API‏ 
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بعد الضغط على CTRL +SHIFT +C‏ سيقوم ال IDE‏ أيضا بالتالي المبين باللون الأحمر, 
نضيف إليه متغيرين للحصول على عنوان النافذة و ال ID‏ للمكون ر المبين باللون الأخضر ) : 


type 
TMyCheckBox = class (TObject) 
private 
VinHandle, ItemID: HWND; 
function GetCheck: Boolean; 
procedure SetChecked(const Value: Boolean); 
public 
Property Checked: Boolean read GetCheck write SetChecked; 
end; 


سب كتابتنا للمتغيرات و سب فیام ال IDE‏ بوضع الدالة و الأجراء نحت قسم Private‏ هو لعدم ظهورها 
في باقي الوحدات Unit‏ او في المشروع, فقط تستخدم من قبل الوحدة ذاتها. 

لنفرض LÍ‏ قمنا بتحويلها جميعها إلى قسم P ublic‏ ماذا سيحدث ؟؟ 

ببساطة عملية استدعاٹھا ستکون مفعلة من قبل باقي الوحدات و هذا الذي لا نريده لأننا لا نستفيد منه , 
الصورة أدناه تبين إذا قمنا بالعملية : 


var WinHandle : ۷۷۵۰: 

var Itemid : HWND; 

function GetCheck: Boolean; 

procedure SetChecked(const Value: Boolean]: 


property Checked : Boolean; 

constructor Create; 

procedure Free: 

function — Initinstance (Instance: Pointer): T Object; 
procedure Cleanupinstance:; 

function ClassType: TClass; 

function ClassName: ShortSting: 

function — ClassNamels(const Name: String): Boolean: 
function ClassParent: TClass; 

function Classinfo: Pointer; 


لذلك سوف نبقي على الدالة و الأجراء في قسم Private‏ لکن المتغيرات WinHandle‏ و Itemld‏ 
سوف نحولها إلى قسم Public‏ حتى نستطيع تمرير مقبض النافذة و ال ID‏ الخاص بالمكون. 
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كتابة الكود و استدعائه : 


Uses. إلى‎ Messgaes نضيف ملف‎ Yg] 


: function في الدالة‎ caso 
function TMyCheckBox.GetCheck: Boolean; 
begin 
Result := Boolean(IsDlgButtonChecked (WinHandle, GetDlgItem(WinHandle, 
ItemId))); 
end; 


alas‏ البعض أن معظم Jiga‏ النظام ترجع قيمة 1 في حالة True‏ و 0 أو أي رقم آخر في حالة la?‏ ر و هذه 
الدالة احدها) لذلك سبقت الأمر ب Boolean‏ ليحول لنا الوحدة إلى قيم صواب و خطأ, لیقربھا و 
يجعلها شبيهة بدوال ال VCL‏ (للمزيد عن عملية تحويل الوحدات راجع موقع دلفي للعرب ..) 


£ 5 £ * هوه 
اما فى الا جراء فيكون کاٹٹالی : 
procedure TMyCheckBox.SetChecked(const Value: Boolean);‏ 
begin‏ 
SendDlgItemMessage (WinHandle, ItemId, BM_SETCHECK, Integer(Value), 0);‏ 
end;‏ 
oo‏ £ 
استدعاء الأوامر: 


نقوم بتعرف المتغير في الجزہ الأعلى للشروع : 


KSR Res.res) 


war 


| MyCheckBox1: TMyCheckBox; 
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نقوم باستدعاء الكائن في بداية تشغيل البرنامج و التأكد بأنه سوف يتحرر مع غلق البرنامج: 


begin 
MyCheckBox1 := TMyCheckBox.Create; 
Try 
DialogBoxParam(HInstance, PChar (1000), O, @Main, 0); 
finally 


MyCheckBox1.Free; 
ExitProcess(hInstance); 
end; 
end. 


سؤال : لماذا لم نقم بتحريره ë‏ عند غلق البرنامج WM CLOSE, WM CLOSE‏ شبيه ل OnClose‏ 
في ال (VCL‏ 


جواب: DialogBoxParam is GY‏ تنفذ الى ان ea‏ استدعاء دالة EndDialog‏ لأنهاء الدالة 
ثم تنفيذ الأسطر السفلية ر للتأكد ضع نقطة توقف ستلاحظ أن الدالة ستنفذ إلى أن تخرج من الدالة ثم 


تستدعي أمر التحرير. 
سؤال: ماذا سيحدث إذا لم تكن الدالة DialogBoxParam‏ تتوقف للتنفيذ إلى وقت استدعاء الدالة 
EndDialog‏ ؟ 


جواب: ببساطة ستحرر الکائن و يحدث أخطاء, في هذه الحالة يجب ان نحررها في .WM_CLOS à‏ 


الآن نقوم بتمریر مقبض النافذة وال ID‏ الخاص بالمكون في حدث WM_INITDIALOG‏ ر الذي يقابل 
OnCreate 54»‏ في ال (VCL‏ 


WM INITDIALOG: 


Begin 
MyCheckBoxi.WinHandle :* Win; 
MyCheckKBox1.ItemId := 1001; 
end; 


‘late‏ بأن Win‏ هو مقبض النافذة 1001 هو ال ID‏ (المعرف ) الخاص بالمكون الذي حددناه بواسطة محرر 
الريسورس عند إضافة المكون. 
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قرادة : 


if MyCheckBoxl.Checked then 


MessageBox(Win, 'Checked !', '', $40) 


else 


MessageBox(Win, 'UnChecked !', '', $40); 


MyCheckBoxl.Checked := Not MyCheckBoxl.Checked; 


MyCheckBoxl.Checked := True; 
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¢ 9949 + * 9949 


تقنية من تقنيات رسم الدوال 


لكي نقوم بعملية الرسم في دلفي نحتاج لمكون يحنوى على خاصية CANVAS‏ وهى في حد ذاتها عبارة عن 
Class‏ نحتوى على عدة خصائص و دوال تساعدنا في عملية الرسم. نختار مكون مثل Image‏ المخصص 
لذلك. 


من بين المشاكل التي سوف تواجهنا: 
اختلاف موقع الإحداثيات: 


مثلا. الإحداثية (0. 0) بالنسبة للمكون Image‏ تتوقع فى اعلى يسار هذا المكون على عكس طريقة 
الرسم التقليدية أي الرسم عن طريق العالم ... لذالك نحتاج إلى عملية تحويل موقع هذه الإحداثية. 


طريقة حساب الإحداثيات : FO = Y‏ 
هل نحسبها بالطريقة التقليدية أي نختار مجال معين يحتوى على أعداد سالبة وموجبة يتم تعويضها في 
الدالة لنحصل على الإحداثيات الواجب ربطها ؟ 
الجواب: لا 
لأنه ربما تكون هذه الإحداثيات متباعدة و بالتالي الرسم يكون غبر دقيق لأننا سنعتمد على الدالتين 
Canvas.MoveTo 4 Canvas.lineTo‏ 
لذلك وجب علينا إيجاد عملية معينة تضمن أن كل الإحداثيات النانجة تكون متقاربة. 
نحديد أبعاد المعلم: تحديد وحدة القیاس 
مثلا :1 - 26 Pixel‏ 
إذا لم نعر هذا الجانب اهتماما فان شكل رسم الدالة سيكون صغير جدا و غير واضح لان أبعاد المعلم ستساوي: 
Pixel 1=X 1‏ 
و Dale‏ ما یرمز لهذه العملية ب DX‏ 
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خطوات الوصول إلى الحل 
لنفرض انه امامنا دالة من نوع كثير حدود من الدرجة الثانية على الشكل التالي Ax? +Bx +C:‏ 


فى حلا هذا c loa‏ الى دالتبن فى دلفي فقط 


الدالة الأولى ‏ لحساب قيمة : Y‏ 


ودالك عن طريق التمرير لها كل من معلمات النمودج و قيمة المتغير X‏ وهى تقوم بحساب Y‏ على أساس 


شكل الدالة. 
function F_de_X(4, B, C, X: Real): Real;‏ 
begin‏ 
Result := (‏ 
Sqr(X) * (A) +‏ 
X * )8( +‏ 
(C)‏ 
الدالة الثانية: 


وضيفتها الأساسية هي رسم الدالة ... لكن قبل هذا يجب تحضبر بعض العمليات: 

نبدأ دمعالجة الثوابت: 

هناك 3 أعداد ثابتة لا تتغير و هي (200 | 0.1 | -10) 

0 : تعبر عن ade‏ الحلقات التي نحتاجها لعملية الرسم ... وعدد الحلقات لا يتغير مهما تغير ارتفاع أو 
عرض الصورة التي نرسم عليه. 


و بالنسبة لارتفاع و عرض الصورة فهو ليس اختياري بتمام معنى الكلمة بل هو نصف اخثياري زان صحة 
التعبیں لأنه يكون دائما على أساس مقياس معين وهو (الارتفاع = نصف العرض, فمثُلا إذا أردنا أن يكون 
العرض 700 فان الارتفاع يستخرج بعلاقة ثلاثية. 


eei[Pixels, Width] > @.5[Pixels, Height] 


788[Pixels, Width] > ? [Pixels, Height] 
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يمكنك البحثٌ عن طريقة أخرى لا تخضع لقید (الارتفاع = نصف العرض) 
1 يعبر عن قيمة ثابتة تضاف إلى X‏ بعدد تعاقب الحلقات. 


0۔ : هي القيمة الأولى المخزنة في X‏ 


أشبه بثابت :DX‏ 


هى عبارة عن قيمة تعبر عن إبعاد المعلم أو وحدت القیاس وهى ثابت أثناء عملية الرسم أي لا تتغیر أثناء 
عملية حساب الإحداثيات و رسمها. 


عند إعطاء DX‏ القيمة 10 فان وحدة القياس تكون تقریبا (pixel 26 =X1‏ هذه القيمة عبارة عن 
قيمة اختيارية. يمكن الاستعانة بأي قيمة أخرى. 


حساب الإحداثيات التى تستعمل فى عملية الرسم: 
يتم حسابها اعتمادا على الإحداثيات المحسوبة مسبقا F(X) , X,‏ 
وطول وعرض الصورة كما يلي: 


4 To Calculate the coordinates 


X al = (108% DX) + X 
X a2 = (208% DX) 


Y_al = (@5@% DX) - _Y 
Y a2 = (100X DX) 


شكل الاجراء 
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procedure _Draw( 
Canvas: TCanvas; 


A, B, C: Real; 
Width, Height: Integer; 


DX: Real; 


PenColor: TColor 


3 
var 
I: :ھا .گا‎ 
X, :لا‎ Real; 
StartPoint: Boolean; 
begin 
Canvas.Pen.Color := PenColor; 


-10; 


for I := Low(I) to High(I) do 
begin 


:- X + 0.1; 


begin 
s= F oe XA. B; Es XD 


if not(StartPoint) then // Starting Points 
Canvas.MoveTo( 
Round( ) ((@@1 * DX) + X) / (2 Width 
Round( ( (ES * DX) - Y) 7 @ Height 
) 
else 
Canvas.LineTo( 
Round( ( ((@081 * DX) + X) / (2 * Width 
Round( ( ((@.5 * DX) - Y) 7 (1 * Height 
); 
StartPoint := True; 
end; 
end; 
end; 


هذا الإجراء صالح بالنسبة لدوال كثيرة الحدود وكل الدوال التي تقبل كل الأعداد أما الدوال التي تقبل 
مجال معين فيجب إجراء تغيير بسيط أو بالأحرى شرط صغير فقط على حسب الدالة التي تتعامل معها 
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imgl.Canvas, 
43, //a 
-4, //b 
پ‎ // € 


imgl.Width, 
imgl.Height, 


18, 
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شكل الاجراء بالنسبة للدوال التى تقبل مجال معين 
لنفرض انه أمامنا دالة لوغرتمية من الشكل التالي: 
Ln(X2 - 0 X +]‏ 

اجراء حساب : Y‏ 


function F_de_X(4, B, C, X: Real): Real; 
begin 
Result := Ln( 
Sqr(X) * (A) + 
X * (B) + 
(C) 


إجراء الرسم مع التعديلات الارمة 


begin 
Canvas.Pen.Color := PenColor; 


Low(I) to High(I) do 


X + ۰: 


x 


then 


begin 
Y == F عن‎ XGA. B. €. X)5 


if not(StartPoint) then // Starting Points 
Canvas.MoveTo( 
Round( ( * DX) Width J- 
Round( ( 5 * DX) - t Height ( 


) 
else 
Canvas.LineTo( 


DX) a Width J), 
DX) : Height ) 


StartPoint : 
end; 
end; 
end; 


القسم المحدد بالبرتقالي هو مخصص لمراقبة الأعداد الممررة للدالة المتعامل معها فان كان هذا العدد ينتمي 
للمجال الذي تقبله هذه الدالة سيبدأ في عملية الرسم. 


ملاحظة: بالنسبة لإبعاد الصورة التي نرسم عليها يجب إن يكون العرض - ضعف الارتفاع 
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٭٭ 


نظرة على مكون ComboBox‏ 


كما جرت العادة في إصدارات مجلة دلفي للعرب, نخصص في كل مرة موضوع تعريفي بسيط عن مكون من 
مكونات دلفي, طبعا على المتتبع أن يقوم بالبحث و الخوض أكثر في خصائص المكون التي لو يتم التطرق 
إليها. 


ما هو المكون: 
المكون موضوع المقالة هو عبارة عن حقل يقبل الكتابة في شكل طولي Jis‏ مكون TEdit‏ مع إعطاء إمكانية 
معالجة القوائم سواء في مرحلة التصميم أو التنفيذ. 


كيف التعامل مع المكون؟: 
نذهب إلى تبويب Standard‏ ثم نختار في القائمة ComboBox ¿sS‏ — شكل1 0 


HÍ? Tool Palette 


Q 
© TRadioButton 


=} TListBox 
Ed TComboBox 


شكل1 0 


شكل 02 
ننشئ مشروع جديد ونضيف المكون للمشروع — شكل 02 
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Properties | Events | 


El 


ImeName 

ItemHeight 13 
ItemIndex -1 

Items (TSE 

Left 

Margins (TMargins) 
MaxLength 0 

Name ComboBox1 
ParentBibiMode [¥ True 
ParentColor [ False 


شكل 03 


Y 


E] 


لإضافة قائمة يحفظها المكون, نقوم بتحديد المكون في واجهة المشروع ثم نذهب Properties : g|‏ ثم 


03 شكل‎ — T&rings Ka) ثم‎ Items 


X| 


vil 


e |‏ | سس 


04 J 


Engineering 


String List Editor‏ پا 


4 lines 

Delphi 4 Arab 
Arab Team 4 Reverse 
AT4RE 

04] 


Code Editor... | 


في المحرر الذي سوف يظهر لنا عند اخنيار79:1105 نقوم بإدخال القائمة مع مراعاة عدم ترك فراغات في 


أول أو بين أو آخر القائمة شكل 04 
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الکون يحتوي على أنماط Styles‏ من بينها نختار النمط المستعمل بكثرة : csDropDownList‏ انظر 
الشكل 05 و الشكل06. 
Properties | Events |‏ 


ParentShowHint [v True اھ‎ 
PopupMenu 
ShowHint [ False 
Sorted E False 
2 Style csDropDownList 
TabOrder csDropDown 
TabStop csDropDownList 
Tag csOwnerDrawFixed 
Text csOwnerDraw"Variable 
TextHint شا للت‎ 


الشكل 05 


[Properties | Events | 


ParentShowHint IW True اھ‎ 
PopupMenu 
|ShowHint [ False 
‘Sorted [ False 

>> Style =i 
TabOrder 0 
TabStop [v True 
Tag 0 B 
| | ألا‎ 
‘TextHint | 


الشكل 06 


Properties | Events | 


Hint E 
ImeMode imDontCare 
ImeName 
ItemHeight 13 
> ItemIndex 
Items (TStrings) n 
Left 8 
Margins (TMargins) 
MaxLength 0 
Name |ComboBox1 =] 


شكل 07 


هام: إذا تركنا قيمة ItemIndex‏ تساوي رناقص واحد)1- فان المكون لن يظهر أول عنصر في القائمة, 
لذا من الأحسن تغيير قيمة Itemlndex‏ إلى رصض -- شكل 07 و شكل 08 
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= D| x 


Delphi 4 Arab 


Delphi 4 Arab 


شكل 08 


نجرب المكون بعد تشغيل المشروع — شكل 09 
Bl xi‏ 


Delphi 4 Arab m 
Delphi 4 Arab 


Arab Team 4 Reverse Engineering 


AT4RE 
D4AÀ 


شكل 09 


من الشائع والمستحسن أن نقوم بالتعامل مع العناصر المحفوظة في المكون برمجيا عن طريق معالجة ترتيبها 


اعمادا على ItemIndex‏ 
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لاحظ المثال العملي التالي: نضيف كل من Label ,Button‏ و ComboBox‏ لمشروع جديد. 
نختار Case of‏ للقيام بالعملية بسلاسة. 
في ouo‏ النقر الخاص بمكون Button‏ نكت الأوامر التالية: ‏ شكل D‏ 


procedure TFormi.ButtoniClick(Sender: TObject); 
begin 
case ComboBoxi.ItemIndex of 
D: 
Labeli.Caption := ComboBoxi.Items.Strings[O0]; 
: 1 . 


Labeli.Caption := ComboBoxl.Items.Strings[1]: 


2s 
Labeli.Caption := ComboBoxl.Items.Strings[2]; 
= 
Labeli.Caption := ComboBoxl.Items.Strings[3] 
else 
Labeli.Caption :> ''; 
end; 
end; 
end. 


10 Js 
فكرة عامة للمثال العملى:‎ 


Case‏ سوف تبدأ بقراءة القيمة الموجودة في ItemIndex‏ و تقوم بتنفيذ الأمر المناسب حسب القيم 
الثابتة المعطاة من 0 إلى 3 و في حالة قراءة قيمة خارج ما تم وضعه کثابت, تنفذ الأمر الخاص ب else‏ 


Label Logse‏ يأخذ القيمة النصية الموجودة في Strings‏ التابعة Items.‏ حسب ما تم إدخاله من 
قيمة الترتيب الثابت 
ini xl‏ = 


Delphi 4 Arab 


[Delphi 4 Arab -| 


تنفيذ الشروع و تجربته شكل 11 
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برامج لها علاقة بدلفي 


Meerkat - Advanced kernel mode driver GUI 
for KmdKit4D (LanHua (mickeylan)) 
نبذة عن الأداة:‎ 
ملفات نظام تعمل‎ sla لتسهيل‎ STRELITZIA هي عبارة عن أداة قيد التطوير من برمجة‎ Meerkat 
- Drivers بنشاد ملفات‎ Ú! نتحتوي على عدة خصائص تسمح‎ Kernel mode على مستوى الكرنل‎ 
بكل سهولة مع إعطاء إمكانية معالجة تشغيل الدرایفر و إظهار رسائل مراحل البناء و التشغيل.‎ *.sys 


M eerkat Kernel mode driver Kit 4 Delphi | Advanced GUI 


(Buia | Options | Driver manager | Informations | 


Index Report Status 


Meerkat Advanced GUI for KmdKit4D | by STRELITZIA | ATARE 
KmdkitdD Kernel mode driver kit for Delphi 


Embarcadero Delphi for Win32 compiler version 21.0 COMPILE 


2 Copyright (c) 1983,2009 Embarcadero Technologies, Inc 
3 BasicDriver.pas(1) 
d BasicDriver.pas(1) 
5 BasicDriver.pas(1) 
B BasicDriver.p as(5) 
7 BasicDriver.p as(5) 
BasicDriver.pas(5) 
E BasicDriver.p as(5) 
10 BasicDriver.paz(5) 
11 BasicDriver.pas(7) 
12 BasicDriver.pas(23) 
13 24 lines, 0.45 seconds, 99 bytes code, 4 bytes data 
14 ^ A |RMCOFF 2.0.0.87 Build on 2010.01.01 16:00:36 
15 OMF2COFF utility toolkit for KmdKitaD(Delphi & BCB) 
16 Copyright (C) 2008-2008 by LanHua(mickeylan[RC T]) 
17 Process Ok 
19 Copyright (C) Microsoft Corporation. All rights reserved 


fF Out: SLE RELEASE 


Operation terminate at: 16:12:15 | 05/08/2010 


واجهة البناء 
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M eerkat Kernel mode driver Kit 4 Delphi | Advanced GUI KmdKit4D 


Buia | Options ] Driver manager | Informations | 


Compiler options ——M — Link options = 

[VÍ A= Set unit alias [J L = (Not) Local debug symbols [ FORCE UNRESOLVED (Not Recommended) 
@ B = Build all units C) F- = (Not) Open string params (©) FORCE MULTIPLE (Not Recommended) 

[J CG = GUI target (A O+ = Optimization 


6 NOLOGO (do not display linker Copyright) 


F JP = Generate .obj file [J V. = (Not) Strict var-strings F ALIGN: 2 j 
لگ‎ U = Unit directories ٦ W^ = Generate stack frames F IMAGE BASE Ox10000 ۵0 


۲٢ Y- = (Not) Symbol reference info 
- 9| SUBSYSTEM: NATIVE 


E3 


[J C- = (Not) Evaluate assertions at runtime 


i 5 ^£ DRIVER 
[J] D- = (Not) Debug information 


[VÍ DRIVER ENTRY: DriverEntry 3 
m G- = (Not) Use imported data references 


[J IMAGE VERSION: 1.0 


vi H- = (Not) Use long strings by default 
[J DEBUG (Add Debug info) 
E |: = (Not) ۱۷۵ checking 


Build options ب‎ Sources — - - 

Maker: Version 5.4 Copyright (c) 1987, 2009 CodeGear a 
[7] Create MakeFile / Batch 6 1 its) ) P 
= (Rebuild sources (Update units) Compiler : Embarcadero Delphi for WIN32 Compiler version 21 
9 Create cleaner Copyright (c) 1983,2009 Embarcadero Technologies, Inc. 


COFF Converter : RMCOFF 2.0 COFF Utility tool for KmdKit4D (Delphi & BCB) 
LanHua (mickeylan) 


Linker: Microsoft (R) Incremental Linker Version 7.00.9210 


af 6 


STRELITZIA | 5148 
واجهة الخيارات‎ 
M ee rkat Kernel mode driver Kit 4 Delphi | Advanced GUI 


Build | Options [ Driver manager | کس سا‎ 


File Name Report Status 

C:\release\B asicDriver.sys Register: Success | Opération réussie. 

C:\release\BasicDriver.sys Run: Success | Opération réussie. 

C:\release\BasicDriver.sys Stop: Success | Opération réussie. 

C:\release\B asicDriver.sys UnRegister: Success | Opération réussie. 

Cele ase\BasicDriver.sys UnRegister: Fail | Le service spécifié n'e... Error 

CAreleaseVB asicDriver.sys Stop: Fail | Le service spécifié n'existe p... Error 

CAreleasexXBasicDriver.sys Run: Fail | Le service spécifié n'existe p... Error 

C:\release\BasicDriver.sys Register: Success | Opération réussie. 

, = Š بیس‎ 

) Open C:\elease\BasicDriver.sys 
( Register b 1 Run b 1 Stop 2 ۲۶+۷ 
( Register and Run ]( Stop and Unregister 


واجهة التشغيل 
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Index Informat ion 


e 2 Name UirtSize RUA PhysSize Phys off Flags 

67 21 „test 08850  aaaaag2zna 8828ات 20ت 96ت‎ [CEPR] 
58 G2 .rdata 688888888 8066886 8٥00028 8806828 48000046 [IPR] 
69 63 .data 66666064 Bbb88320  aaagaoaag2za  aagaagas2aoa ٥00040 [IPR] 
76 84 INIT 88898840  aaoaaas4a A44464 aagoas4a 288828ع‎ CCDERWI 
rii 6S .reloc 66666612 88888٥ 44244424  aaaoosma 4280808080480 [DIR] 
72 Key to section flags: 

73 C - contains code 

74 D - discardable 

75 E - executable 

76 I - contains initialized data 

77 P - may not be page 

73 R - readable 

79 W - writeable 

8a چو‎ E چو چو ہو ہو پر پر‎ HE HE چو‎ E چو چو‎ HE چو‎ HE E چو‎ E E و چو چو چو چو چو چو چو ہو‎ E چو چو چو چو چو چو چو چو چو و چو چو چو چو چو چو چو چو چو و چو چو چو چو چو چو ہی و و چو چو چو چو چو ہو ہو چو چو چو چو چو چو ہو ہو‎ E چو‎ A 
81 Section: Import 

82 File Offset: 66660340 (832) 

83 ImportLookUpTb IRVA: 6632 

54 Time Stamp: 8006 

85 Forwarder Chain: 66666006 (indes of first forwarder reference) 

86 Imports from NTOSKRNL. EXE 

87 (hint = 6636) DbgPrint 


1 Turbo Dump Version 6.3.0.0 Copyright (c) 1988-2009 Embarcadero Technologies, Inc. 
2 Display of File c:\release\basicdriver.sys 

3 666666: 4D SA 96 G6 43 GB ûû BB A4 ûû GG GB FF FF GO هه‎ HZ.............. 
4 666614: BS 66 66 ûû GB GB ûû 44 46 66 GB ت٥‎ OB HA BOB 88 ........(8....... 
5 666620: aa aa 66 ûû HÖ تمه‎ ûû 44 ØA GB GO GB OB BGB BOB BOB ................ 
6 666030: ûû ag 66 ûû BGB BGB GB 44 ØA GB GB GB DÖ ئ8‎ ØA OO ................ 
r4 666640: GE iF BA GE 66 B4 69 CD 21 BS 1ه‎ 4C CD 21 54 68 ........*..L.tTh 
8 ٥8٥5:۰ 69 73 26 70 72 6F 67 72 61 6D 280 63 61 6E 6E 6F is program canno 
9 660060: 74 26 62 65 20 72 75 6E 26 69 6E 26 44 4F 53 28 t be run in DOS 
1 666670: 6D 6F 64 65 2E ØD aD GA 24 aa aa aa aao DD aa BH mode....5....... 
1 

1 

1 

1 


16 606608: 58 45 aa aa 4C a1 45 6 
17 :ع980‎ aa aa aa aa EG aaO GE 1 
18 Baaara: 66 66 aa aa aa aao aao aa 


19 000100: 868 G3 66 OB 00 00 81 8 

28 000110: 84 GG 00 OB GO 00 Gà 88 s : 
21 000120: CO G3 GB OB AG G2 66 OB 62 55 GB OO 81 88 OB 868 ........hU...... 
22 000130: GO GB 18 OB 96 10 96 OG OO OO 18 86 OB 18 GB 868 ................ 
23 000140: 86 GB Ga BO 10 66 Ga BO BO OO GB OO OD OO OB 868 ................ 
24 000150: 40 G3 Ba OB 28 GB Ga BO BO 86 pQ 86 OB 86 GO DO G...(..........- 
25 000160: GO 29 Ga 66 00 GB OO OO 20 OO GB OO OB OO OO DB ................ 
26 000170: AG G3 Ga 66 10 00 Ga OO GA BO GB OB OB GB 868 DB ................ 
27 800180: 96 GB 29 OB 66 GB GB OO 90 BO GB 90 OB 86 OO OD ............-..- 


£ 


ترقبوا إصدار جديد للأداة أول أيام رمضان إن شاد الله 
رابط التحميل: 
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حل التمرين كان بمشاركة وحيدة من عضو من المنتدى بصيغة أوامر مع إرفاق الملفات المصدرية. يمكنكم 
تجربته و طرح أي غموض في قسم الأسئلة في منتدى دلفي للعرب. 


[RRR ر نيا ت انوا‎ ud لے ی تی الوا ليا الوا‎ AK نوا تی انوا ۷ ندا الوا انها الما کو الما نوا انما کو نما انوا انها کی کو الوا ان نوا تو ہو ی‎ A انوا‎ tas Coded By TF 6M} 
7715-07-0 
//Delphi4Arab 

[RAR بی تی تیا تن‎ AAA AAR AK انها کو ہی کی تی کو ای لھ تی نوا اننا لوا ندا لوا انها‎ ipit کیا کر تی تر لی وا ی‎ Coded By TF6M) 

unit SmplUnit; 

{SWARNINGS OFF} 

{SHINTS OFF} 

interface 


uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 


Dialogs, StdCtrls, ExtCtrls, ShellApi; 


type 

TMainFrm = class (TForm) 

BackGnd: TShape; 

Labell: TLabel; 

iMemo: TMemo; 

tLabel: TLabel; 

Label2: TLabel; 

dSLabel: TLabel; 

sForm: TCheckBox; 

procedure BackGndMouseDown (Sender: TObject; Button: TMouseButton; 

Shift: TShiftState; X, Y: Integer); 

procedure Label2Click(Sender: TObject); 

procedure FormActivate(Sender: TObject); 

procedure sFormClick(Sender: TObject); 
private 

Procedure nHDevice(Var M:TMessage); message WM DEVICECHANGE; 

Function GetNewDriveName : String; 

Procedure GetDrivInfo; 

( Private declarations [ 
public 

{ Public declarations } 


end; 


var 
MainFrm: TMainFrm; 


implementation 


{SR *.dfm} 
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procedure TMainFrm.BackGndMouseDown (Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
begin 
ReleaseCapture; 
SendMessage (Handle, Wm_SysCommand, $F012,0); 
end; 


Function TMainFrm.GetNewDriveName : String; 
Var 

_i : Byte; 

Begin 

Besi ge VV 

$61 To $7A Do 


FOE al 
Begin 
If GetDriveType(PChar(Chr( i) +':\')) = DRIVE REMOVABLE Then 
Begin 
RESULE s= Gws 3) de Ugy Yy 
dSLabel.Caption:= ConCat('dStat : (' 
p Clase (sl) 
,') Disque Amovible'); 
End {Else 
MessageBoxA (0, Pchar (Format ("Exit Code : $X',[GetLastError])) 
,Nil,$2000 + $40); } 
End; 
End; 


procedure TMainFrm.GetDrivInfo; 
Var 
BuffNom : Array[0..255]of Char; 
PBuf r SVS ¢: exse 0.5 2535 7۶ 
Serie, Long, Flags : DWord; 
FreeBytesAvailable, TotalNumberofBytes, TotalNumberofFreeBytes : Int64; 
begin 
If GetVolumeInformation (Pchar (GetNewDriveName) ,BuffNom, SizeOf (BuffNom) 
,@Serie,Long,Flags 
,BuffSys, SizeOf (BuffSys)) Then 
Begin 
GetDiskFreeSpaceEx (Pchar (GetNewDriveName) ,FreeBytesAvailable 
, TotalNumberofBytes 
,@TotalNumberofFreeBytes) ; 
With iMemo.Lines Do 


Begin 

Add(''); 

Add('USB Name : ' + BuffNom); 

Add('File System : '+ BuffSys); 

Add('Serial Number : $'+ IntToHex(Serie,8)); 

Add('Free : ' + IntToStr(TotalNumberofFreeBytes)+ ' Bytes'); 
Add('Total : ' + IntToStr(TotalNumberOfBytes)+ ' Bytes'); 
End; 
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If MessageBoxA(0,Pchar('Open It ?') 


,Nil,$2000 + $40 + $01) = $01 Then 
ShellExecute (0,Nil, Pchar (GetNewDriveName) ,Nil,Nil,1); 
End Else 
Begin 
iMemo.Lines.Add('Nothing detected!'); 
dSLabel.Caption:- 'dStat : (.) Disque Amovible'; 
End; 


// MessageBoxA(0,Pchar(Format('Exit Code : $X',[GetLastError])) 
Hi labo ++ ۶ 7 
end; 


procedure TMainFrm.Label2Click (Sender: TObject); 
begin 

ExitProcess (GetLastError); 

end; 


procedure TMainFrm.nHDevice(var M: TMessage) ; 
begin 
Case M.wParam Of 
$8004{DBT_DEVICEREMOVECOMPLETE} : 
Begin 
iMemo.Clear; 
iMemo.Lines.Add('A device or piece of media has been removed ...'); 


iMemo.Lines.Add('Action Time : ' + TimeToStr (Now) ); 
dSLabel.Caption:= 'dStat : (.) Disque Amovible'; 
End; 
$8000{DBT_DEVICEARRIVAL}: 
Begin 


iMemo.Clear; 
iMemo.Lines.Add('A device or piece of media has been inserted and is now 
avaa lable ss P 
iMemo.Lines.Add('Action Time : ' + TimeToStr(Now));; 
GetDrivInfo; 
End; 
{Else 
If M.wParam <> 0 Then 
MessageBoxA (0, Pchar (Format ('Exit Code : $X',[M.wParam])) 
;Nil,$2000 + $40); 
http://msdn.microsoft.com/en-us/library/aa363480%28VS.85%29.aspx} 


End; 
end; 


procedure TMainFrm.FormActivate (Sender: TObject); 
begin 

GetDrivInfo; 

end; 
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procedure TMainFrm.sFormClick (Sender: TObject); 


begin 
If sForm.Checked Then 
MainFrm.FormStyle := fsStayOnTop Else 
MainFrm.FormStyle := fsNormal; 
end; 
end. 
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الملفات المصدرية مرفقة مع عدد المجلة. 
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Alias Manager برمجة أداة‎ 


4 
Tables Manager مكون‎ 


J 


المطلوب: 
برمجة أداة تسمح LU‏ بتسيير Alias‏ و تنظيم مسارات ملفات قواعد البيانات: إضافة. تعدیل و حذف. 
برمجة مكون يضاف إلى أي مشروع, دوره تعطيل أو تفعيل أي مكون من نوع Table‏ 


بالتوفيق إن شاء الله 


لمشاركتك في مقالات المجلة, أرسل فقط المقالة بصيغة DOC‏ أو0006 دون تنسيق مسبق إلى إدارة المنتدى 


